<% Option Explicit %>
<!--#INCLUDE FILE="wyconn.asp"-->
<!--#INCLUDE FILE="Function.asp"-->
<%
Dim formData,formsize
formsize=Request.TotalBytes
formdata=Request.BinaryRead(formsize)

if formsize>UPSize()*1024 then
                 dim Message
                 Message = "<b><font size=4>ԲͼƬļСܳ " &UPSize()& "KB ϴ</font></a></b>"
                 Response.redirect  ("error.asp?info="&Message)
                 Response.End
else
	Dim filepath,contentType,fileimage,filesize
	Dim bncrlf,divider,dataStart,dataEnd,dataLen,temp
	bncrlf=ChrB(13) & ChrB(10)
	divider=LeftB(formData,CInt(InstrB(formdata,bncrlf))-1)
    
	datastart=InstrB(formdata,bncrlf)+59
	dataend=InstrB(datastart,formdata,bncrlf)-2
	dataLen=dataend-datastart+1
	filepath=MidB(formdata,datastart,datalen)
	filepath=BinaryToString(filepath)

	temp=dataend 
	datastart=temp+18 
	dataend=InstrB(datastart,formdata,bncrlf & bncrlf)-1
	dataLen=dataend-datastart+1
	contentType=MidB(formdata,datastart,datalen)
	contentType=BinaryToString(contentType) 

	temp=dataend
	datastart=dataend+5 
	dataend=InstrB(datastart,formdata,divider)-3
	dataLen=dataend-datastart+1
	fileimage=MidB(formdata,datastart,datalen)

	filesize=Lenb(fileimage)

	Dim intro
	temp=dataend 
	datastart=InstrB(temp,formdata,bncrlf & bncrlf)+4
	dataend=InstrB(datastart,formdata,divider)-3 
	dataLen=dataend-datastart+1
	intro=MidB(formdata,datastart,datalen)
	intro=BinaryToString(intro)

	If filesize Mod 2 = 1 Then
		fileimage=fileimage & Chrb(32)
	End If

                 Dim l,ll,contentType2
                 l = len(contentType)
                 ll = instr(contentType,"/")
                 contentType2 = right(contentType,l-ll)
                 if contentType2<>"gif" and contentType2<>"pjpeg" and contentType2<>"bmp" and contentType2<>"x-png" then
                         dim Message2
                         Message2 = "<b><font size=4>ԲֻϴͼƬļʽ.gif .jpg .jpeg .bmp .png<br><br>ϴ</font></a></b>"
                         Response.redirect  ("error.asp?info="&Message2)
                         Response.End
                 end if

	Dim rs,strSql
	strSql="Select * From ts_userinfo where username= '" & intro & "'"
	Set rs=Server.CreateObject("Adodb.Recordset")
	rs.Open strSql,conn,1,3
	      rs("userimage")=""
	      rs("userimage").AppendChunk fileimage
	      rs.Update
                  rs.close
                  set rs=nothing
                  Response.redirect  ("error.asp?info=<font color=red size=4>ףأƬϴɹ!</font>")
end if

Call conn_Nothing()

Function UPSize()
    Dim rs,sql
	Sql = "select photoSize from option1"
    Set rs=conn.execute(Sql)
        UPSize=rs("photoSize")
    rs.close
    Set rs=Nothing
End Function 
%>
	
